home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / menu.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  17KB  |  140 lines
  1. 10 REM ***** This is a short program to demonstrate the menu routine
  2. 100 ON
  3. 10000 REM ***** A seemingly trivial routine follows, yet I have used it
  4. 10010 REM ***** in every program I have written. It reads the mouse and
  5. 10020 REM ***** keyboard, returning the following when a key is pressed:
  6. 10030 REM ***** I$ : ASCII character of key, GS : ST scancode of key
  7. 10040 REM ***** MK : mouse key pressed, MX,MY : coords of mouse
  8. 10050 REM ***** ZM : zone the mouse is in
  9. 10060 VARNAME
  10. 10070 REPEAT
  11. 10080 VARNAME
  12. 10090 RETURN
  13. 110 REPEAT
  14. 120 FADE
  15. 130 UNTIL
  16. 140 DEFAULT
  17. 150 DATA
  18. 160 DATA
  19. 170 DATA
  20. 180 DATA
  21. 20 REM ***** It is written by and copyright 1990,91 Philip Rankin
  22. 30 REM ***** You are free to use the menu and appearroutine if you so wish
  23. 40 KEY
  24. 4000 REM ***** Block appear - see Early Learning Maths title screen
  25. 4010 VARNAME
  26. 4020 REPEAT
  27. 4030 SCREEN COPY
  28. 4040 VARNAME
  29. 4050 UNTIL
  30. 4060 SCREEN COPY
  31. 4100 REM ***** roll picture onto screen as in ST News 4.4 and Ballistix
  32. 4110 FOR
  33. 4120 FOR
  34. 4130 SCREEN COPY
  35. 4140 SCREEN COPY
  36. 4150 SCREEN COPY
  37. 4160 SCREEN COPY
  38. 4170 WAIT VBL
  39. 4180 SCREEN COPY
  40. 4190 RETURN
  41. 4300 REM ***** another fairly simple appear
  42. 4320 GET PALETTE
  43. 4330 FOR
  44. 4340 FOR
  45. 4350 SCREEN COPY
  46. 4360 SCREEN COPY
  47. 4370 WAIT VBL
  48. 4380 SCREEN COPY
  49. 4400 REM ***** Roll the picture down the screen as if it is peeling off the bar
  50. 4420 GET PALETTE
  51. 4430 FOR
  52. 4440 FOR
  53. 4450 SCREEN COPY
  54. 4460 SCREEN COPY
  55. 4470 SCREEN COPY
  56. 4480 WAIT VBL
  57. 4490 SCREEN COPY
  58. 4500 REM ***** 'Pour' appear - pours picture onto screen
  59. 4530 FOR
  60. 4540 SCREEN COPY
  61. 4550 WAIT VBL
  62. 4560 SCREEN COPY
  63. 4570 RETURN
  64. 4600 REM ***** shows a screen, stored in bank 15 plane by plane - version 1
  65. 4610 FOR
  66. 4620 VARNAME
  67. 4630 FOR
  68. 4640 NEXT
  69. 4650 SCREEN COPY
  70. 4700 REM ***** shows a screen, stored in bank 15 plane by plane - version 2
  71. 4710 FOR
  72. 4720 VARNAME
  73. 4730 FOR
  74. 4740 NEXT
  75. 4750 SCREEN COPY
  76. 5 REM Checked GFF א™
  77. 50 DIM
  78. 5000 REM ***** This routine provides a simple menu
  79. 5010 REM ***** You can have as many options on the menu as will fit on the
  80. 5020 REM ***** screen. It requires the following variables
  81. 5030 REM ***** OPTION$() : an array holding all the menu options
  82. 5040 REM ***** WHERE     : a pointer to first line of data holding options
  83. 5050 REM ***** N_ITEMS  : the number of options in the menu
  84. 5060 REM ***** IX       : the x_coord of first option
  85. 5070 REM ***** IY       : the y_coord of first option
  86. 5080 REM ***** It returns the chosen option in the variable CURR_POS
  87. 5090 REM ***** EG: 10 WHERE=60000:N_ITEMS=10:IX=0:IY=0:gosub 5000
  88. 5095 REM ***** NOTE: THIS ROUTINE MAKES USE OF MY KEYBOARD/MOUSE INPUT ROUTINE
  89. 5100 VARNAME
  90. 5110 VARNAME
  91. 5120 REM ***** the above are constants, -- easier to understand than numbers
  92. 5130 GOSUB
  93. 5140 GOSUB
  94. 5150 REM ***** Now the main Loop: Use arrows to move to option
  95. 5160 REM ***** and return to select it
  96. 5170 WHILE
  97. 5180 VARNAME
  98. 5190 REPEAT
  99. 5210 VARNAME
  100. 5220 IF
  101. 5230 IF
  102. 5240 IF
  103. 5250 IF
  104. 5260 IF
  105. 5270 IF
  106. 5280 WEND
  107. 5285 RETURN
  108. 5290 REM ***** display the menu
  109. 5300 FOR
  110. 5310 LOCATE
  111. 5320 NEXT
  112. 5330 RETURN
  113. 5340 REM ***** invert the current option
  114. 5350 LOCATE
  115. 5360 INVERSE
  116. 5370 LOCATE
  117. 5380 INVERSE
  118. 5390 RETURN
  119. 5400 REM ***** Read in and Process the option$() so all options are same length
  120. 5410 RESTORE
  121. 5420 FOR
  122. 5430 READ
  123. 5440 IF
  124. 5450 NEXT
  125. 5460 FOR
  126. 5470 VARNAME
  127. 5480 NEXT
  128. 5490 RETURN
  129. 60 FADE
  130. 61 REPEAT
  131. 62 FADE
  132. 80 HIDE
  133. 82 PEN
  134. 84 PEN
  135. 85 PEN
  136. 86 PEN
  137. 88 REM ***** call the menu routine
  138. 90 PEN
  139. 95 FADE
  140.